| I'm moving in.... | |||||||||||||||||
| DYNAMIC DATA EXCHANGE | |||||||||||||||||
|
DECLARE AppID PLS_INTEGER; ConvID PLS_INTEGER; Rg_id RecordGroup; Gc_id GroupColumn; GetVal1 Number(3); GetVal2 char(15); GetVal3 char(15); Cnt Number (2) := 0; Col Number (2) := 1; BEGIN Cnt := Get_Group_Row_Count ( 'DDE_Group' ); /* Start Microsoft Excel with spreadsheet emp.xls loaded. */ AppID := DDE.App_Begin('C:\progra~1\micros~4\office\excel.exe C:\ravi\emp.xls', DDE.APP_MODE_MINIMIZED); /* Sets the focus to Excel started by App_Begin */ DDE.App_Focus(AppID); /* Open a DDE conversation with Microsoft Excel for Windows on topic abc.xls. */ ConvID := DDE.Initiate('EXCEL', 'C:\ravi\emp.xls'); If Cnt <> 0 Then For I in 1..Cnt Loop GetVal1 := Get_Group_Number_Cell ( 'Dde_Group.Deptno', Col ); GetVal2 := Get_Group_Char_Cell ( 'Dde_Group.Dname ', Col ); GetVal3 := Get_Group_Char_Cell ( 'Dde_Group.Loc ', Col ); DDE.Poke(ConvID, 'R'||to_Char(Col)||'C1', to_char(GetVal1), DDE.CF_TEXT, 1000); DDE.Poke(ConvID, 'R'||to_char(Col)||'C2', GetVal2, DDE.CF_TEXT, 1000); DDE.Poke(ConvID, 'R'||to_char(Col)||'C3', GetVal3, DDE.CF_TEXT, 1000); Col := Col + 1; End Loop; Message ('Poked Data'); Pause; DDE.Terminate(ConvID); DDE.App_End (AppID); End If; END; | |||||||||||||||||
|
| |||||||||||||||||
| |||||||||||||||||
| |||||||||||||||||
|
This page has been visited
|